The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/TimeLine.dxr/00013.ls

Text File | 1998-11-19 | 3.8 KB | 137 lines

global gbarsprite, gslidersprite, returnframe, infoarea

on prepareMovie
  set gbarsprite to 43
  set gslidersprite to 45
  set infoarea to 36
  puppetSprite(gslidersprite, 1)
  checkstate()
end

on dragslider
  set barleft to the left of sprite gbarsprite
  set barright to the right of sprite gbarsprite
  repeat while the mouseDown = 1
    set mh to the mouseH
    if mh <= barleft then
      set the locH of sprite gslidersprite to barleft
    else
      if mh >= barright then
        set the locH of sprite gslidersprite to barright
      else
        set the locH of sprite gslidersprite to mh
      end if
    end if
    set sliderloc to the locH of sprite gslidersprite
    set sliderloc to sliderloc - the left of sprite gbarsprite
    set the locV of sprite gslidersprite to 480 - sliderloc
    setframebyslider()
    updateStage()
  end repeat
end

on setframebyslider
  set sliderloc to the locH of sprite gslidersprite
  set sliderloc to sliderloc - the left of sprite gbarsprite
  set sliderloc to float(sliderloc)
  set ratio to sliderloc / the width of sprite gbarsprite
  set endframe to label("End")
  set mtime to ratio * endframe
  if mtime < 1 then
    set mtime to 1
  else
    if mtime > endframe then
      set mtime to endframe
    else
      go(integer(mtime))
    end if
  end if
end

on setsliderbyframe
  set ratio to the frame / 48
  set sliderloc to integer(ratio * the width of sprite gbarsprite)
  set sliderloc to sliderloc + the left of sprite gbarsprite
  set the locH of sprite gslidersprite to sliderloc
end

on mainmenu
  set returnframe to the frame
  puppetSprite(12, 1)
  puppetSprite(57, 1)
  go("MainMenu")
end

on showinfo
  puppetSprite(infoarea, 1)
  if the mouseCast > 0 then
    set mouseovermember to the name of member the mouseCast
    set mheadchar to chars(mouseovermember, 1, length(mouseovermember) - 1)
    if the last char in mouseovermember = "B" then
      set the memberNum of sprite infoarea to the number of member (mheadchar & "C")
      if char 1 of mouseovermember = "F" then
        set mycursor to the number of member "hand"
        set mycursormask to the number of member "hand mask"
        cursor([mycursor, mycursormask])
        if the mouseDown then
          put chars(mouseovermember, 2, 7) into field "Current Object"
          go(1, "Object")
        end if
      else
        cursor(-1)
      end if
    else
      puppetSprite(infoarea, 0)
    end if
  end if
end

on checkstate
  repeat with spriteNum = 15 to 30
    set mnum to the memberNum of sprite spriteNum
    if mnum > 0 then
      set mname to the name of member mnum
      set mheadchar to chars(mname, 1, length(mname) - 1)
      set mlastchar to the last char in mname
      if (mlastchar = "A") or the mouseUp then
        set the memberNum of sprite spriteNum to the number of member (mheadchar & "B")
        next repeat
      end if
      if not (the mouseDown) then
        set the memberNum of sprite spriteNum to the number of member (mheadchar & "A")
      end if
    end if
  end repeat
end

on switchdynasty whichdynasty
  case whichdynasty of
    "D1":
      puppetSprite(gslidersprite, 0)
    "D2":
      set the rect of sprite gslidersprite to rect(206, 461, 232, 487)
    "D3":
      set the rect of sprite gslidersprite to rect(234, 433, 260, 459)
    "D4":
      set the rect of sprite gslidersprite to rect(248, 419, 274, 445)
    "D5":
      set the rect of sprite gslidersprite to rect(256, 411, 282, 437)
    "D6":
      set the rect of sprite gslidersprite to rect(266, 401, 292, 427)
    "D7":
      set the rect of sprite gslidersprite to rect(275, 392, 301, 418)
    "D8":
      set the rect of sprite gslidersprite to rect(280, 387, 306, 413)
    "D9":
      set the rect of sprite gslidersprite to rect(289, 378, 315, 404)
  end case
  repeat with i = 15 to 30
    set the visible of sprite i to 0
  end repeat
  go(whichdynasty)
end

on stopMovie
  gobackpath()
end